home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / SpeakFreely_Src / libdes / PC1 < prev    next >
Encoding:
Text File  |  2000-05-27  |  454 b   |  29 lines
  1. #!/usr/local/bin/perl
  2.  
  3. @PC1=(  57,49,41,33,25,17, 9,
  4.      1,58,50,42,34,26,18,
  5.     10, 2,59,51,43,35,27,
  6.     19,11, 3,60,52,44,36,
  7.     "-","-","-","-",
  8.     63,55,47,39,31,23,15,
  9.      7,62,54,46,38,30,22,
  10.     14, 6,61,53,45,37,29,
  11.     21,13, 5,28,20,12, 4,
  12.     "-","-","-","-",
  13.     );
  14.  
  15. foreach (@PC1)
  16.     {
  17.     if ($_ ne "-")
  18.         {
  19.         $_--;
  20.         $_=int($_/8)*8+7-($_%8);
  21.         printf "%2d  ",$_;
  22.         }
  23.     else
  24.         { print "--  "; }
  25.     print "\n" if (((++$i) % 8) == 0);
  26.     print "\n" if ((($i) % 32) == 0);
  27.     }
  28.  
  29.